From: Stefan Monnier Date: Fri, 7 Sep 2007 19:47:56 +0000 (+0000) Subject: Add comment. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~27161 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=8b5f251b263416b9f7f4eccc373cc54b0f16ef1b;p=emacs.git Add comment. --- diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 6f205772249..cefa3c485cf 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -635,6 +635,9 @@ If non-nil, NEW means to create a new buffer no matter what." (if (not (string-match "." str)) (setq str "\n")) (setq str (concat "-- Running " cmd " ...\n" str))) (if (not (string-match + ;; FIXME: If `cmd' is large, this will bump into the + ;; compiled-regexp size limit. We could drop the "^" anchor + ;; and use search-forward to circumvent the problem. (concat "^-- Running " (regexp-quote cmd) " \\.\\.\\.\n") str)) (error "Internal PCL-CVS error while removing message") (setq str (replace-match "" t t str))